home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / shapebut.zip / SBDEMO1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-11  |  1KB  |  51 lines
  1. unit Sbdemo1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, ShapeBut, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     ShapeButton1: TShapeButton;
  16.     ShapeButton2: TShapeButton;
  17.     ShapeButton3: TShapeButton;
  18.     ShapeButton4: TShapeButton;
  19.     ShapeButton5: TShapeButton;
  20.     ShapeButton6: TShapeButton;
  21.     Shape2: TShape;
  22.     Shape1: TShape;
  23.     ShapeButton7: TShapeButton;
  24.     ShapeButton8: TShapeButton;
  25.     ShapeButton9: TShapeButton;
  26.     ShapeButton10: TShapeButton;
  27.     ShapeButton11: TShapeButton;
  28.     ShapeButton12: TShapeButton;
  29.     ShapeButton13: TShapeButton;
  30.     procedure ShapeButton5Click(Sender: TObject);
  31.   private
  32.     { Private-Deklarationen }
  33.   public
  34.     { Public-Deklarationen }
  35.   end;
  36.  
  37. var
  38.   Form1: TForm1;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44.  
  45. procedure TForm1.ShapeButton5Click(Sender: TObject);
  46. begin
  47.   Close
  48. end;
  49.  
  50. end.
  51.